(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     45964,       1026]
NotebookOptionsPosition[     45357,       1005]
NotebookOutlinePosition[     45744,       1022]
CellTagsIndexPosition[     45701,       1019]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mr", ":=", 
   RowBox[{"w6", "/", "w1"}]}], " ", 
  RowBox[{"(*", 
   RowBox[{"mixing", " ", "ratio"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sh", ":=", 
   RowBox[{"mr", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", "mr"}], ")"}]}]}], 
  RowBox[{"(*", 
   RowBox[{"specific", " ", "humidity"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"R", ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"eq", "*", "sh"}]}], ")"}], "Rd"}]}], "\[IndentingNewLine]", 
 RowBox[{"cp", ":=", 
  RowBox[{"cpd", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"cpv", "-", "cpd"}], ")"}], "*", 
    "sh"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"cv", ":=", 
  RowBox[{"cvd", "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"cvv", "-", "cvd"}], ")"}], "*", 
    "sh"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"kappa", ":=", 
  RowBox[{"cp", "/", "cv"}]}], "\[IndentingNewLine]", 
 RowBox[{"theta", ":=", 
  RowBox[{"w5", "/", "w1"}]}], "\[IndentingNewLine]", 
 RowBox[{"sqrtGrho", ":=", 
  RowBox[{"w1", "+", "w6"}]}], "\[IndentingNewLine]", 
 RowBox[{"rhotheta", ":=", 
  RowBox[{"sqrtGrho", "*", 
   RowBox[{"theta", "/", "sqrtG"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"p", ":=", 
  RowBox[{"p0", "*", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"rhotheta", "*", 
      RowBox[{"R", "/", "p0"}]}], ")"}], "^", 
    "kappa"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"u", ":=", 
  RowBox[{"w2", "/", "sqrtGrho"}]}], "\[IndentingNewLine]", 
 RowBox[{"v", ":=", 
  RowBox[{"w3", "/", "sqrtGrho"}]}], "\[IndentingNewLine]", 
 RowBox[{"w", ":=", 
  RowBox[{"w4", "/", "sqrtGrho"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"deta", ":=", 
   RowBox[{
    RowBox[{"w", "/", "sqrtGv"}], "+", 
    RowBox[{"iGv13", "*", "u"}], "+", 
    RowBox[{"iGv23", "*", "v"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"F", ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"w1", "*", "u"}], ",", 
    RowBox[{
     RowBox[{"w2", "*", "u"}], "+", 
     RowBox[{"sqrtG", "*", "iGh11", "*", "p"}]}], ",", 
    RowBox[{
     RowBox[{"w3", "*", "u"}], "+", 
     RowBox[{"sqrtG", "*", "iGh21", "*", "p"}]}], ",", 
    RowBox[{"w4", "*", "u"}], ",", 
    RowBox[{"w5", "*", "u"}], ",", 
    RowBox[{"w6", "*", "u"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"q", ":=", 
  RowBox[{"{", 
   RowBox[{"w1", ",", "w2", ",", "w3", ",", "w4", ",", "w5", ",", "w6"}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D1", "=", 
   RowBox[{"D", "[", 
    RowBox[{"F", ",", 
     RowBox[{"q", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D2", "=", 
   RowBox[{"D", "[", 
    RowBox[{"F", ",", 
     RowBox[{"q", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D3", "=", 
   RowBox[{"D", "[", 
    RowBox[{"F", ",", 
     RowBox[{"q", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D4", "=", 
   RowBox[{"D", "[", 
    RowBox[{"F", ",", 
     RowBox[{"q", "[", 
      RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D5", "=", 
   RowBox[{"D", "[", 
    RowBox[{"F", ",", 
     RowBox[{"q", "[", 
      RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D6", "=", 
   RowBox[{"D", "[", 
    RowBox[{"F", ",", 
     RowBox[{"q", "[", 
      RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"dFdqT", ":=", 
  RowBox[{"{", 
   RowBox[{"D1", ",", "D2", ",", "D3", ",", "D4", ",", "D5", ",", "D6"}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"dFdq", ":=", 
  RowBox[{"Transpose", "[", "dFdqT", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lambda", ":=", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Eigenvalues", "[", "dFdq", "]"}], "]"}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Amatrix=\>\"", ",", 
   RowBox[{"Simplify", "[", 
    RowBox[{"MatrixForm", "[", "dFdq", "]"}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<EigenValues=\>\"", ",", 
   RowBox[{"Simplify", "[", 
    RowBox[{"MatrixForm", "[", "lambda", "]"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.748150017387987*^9, 3.7481501002669964`*^9}, {
   3.7481502531342697`*^9, 3.748150351134679*^9}, {3.7481503817956753`*^9, 
   3.748150396240039*^9}, 3.7481504415937014`*^9, {3.748150572338011*^9, 
   3.7481506672736263`*^9}, {3.748150771651973*^9, 3.748150773533938*^9}, {
   3.748150852274338*^9, 3.7481508742086415`*^9}, 3.748150936952736*^9, {
   3.748150968513301*^9, 3.748151033207762*^9}, {3.748151228828043*^9, 
   3.748151236863692*^9}, {3.7481522941309853`*^9, 3.748152323817563*^9}, 
   3.7481523659319477`*^9, {3.7481524264081526`*^9, 3.7481524912786026`*^9}, 
   3.7481613464805307`*^9, {3.7481650976327305`*^9, 3.748165100926917*^9}, {
   3.748165141737867*^9, 3.748165230872306*^9}, {3.748165315381216*^9, 
   3.748165370630407*^9}, {3.7481654798023343`*^9, 3.7481654892610292`*^9}, {
   3.7481692578537617`*^9, 3.748169279295398*^9}, {3.7577686139902377`*^9, 
   3.7577687286774893`*^9}, {3.7577687765863495`*^9, 3.757768860909814*^9}, {
   3.75776889541652*^9, 3.7577689339594316`*^9}, {3.757769039007972*^9, 
   3.7577690630446844`*^9}, {3.757769135514849*^9, 3.7577691638001957`*^9}, {
   3.757769429067993*^9, 3.757769457226678*^9}, 3.757769587071046*^9, {
   3.7592154628239655`*^9, 3.759215499065191*^9}, {3.759215539906913*^9, 
   3.759215695690635*^9}, {3.759215731904752*^9, 3.7592157403083134`*^9}, {
   3.7592158199044504`*^9, 3.7592158652372065`*^9}, 3.7592159196237593`*^9, {
   3.75922311418956*^9, 3.7592231485436993`*^9}, {3.759223416714119*^9, 
   3.75922347955111*^9}, {3.7592236030667686`*^9, 3.7592237170728793`*^9}, {
   3.7592246081783752`*^9, 3.7592246107514944`*^9}, {3.759224659489154*^9, 
   3.759224759505679*^9}, 3.759225241164158*^9, {3.759225292492553*^9, 
   3.7592253062021246`*^9}, {3.7630869338898373`*^9, 3.763086991682808*^9}, {
   3.763087027860568*^9, 3.763087070334637*^9}, {3.7630871279595566`*^9, 
   3.7630871556715*^9}, {3.7630888329375415`*^9, 3.763088848924837*^9}, {
   3.7630888878258305`*^9, 3.763089082180278*^9}, {3.7630891540880146`*^9, 
   3.763089212329319*^9}, {3.7631578770906415`*^9, 3.763157891267444*^9}, {
   3.763158235331628*^9, 3.763158361001754*^9}, {3.7631584770106387`*^9, 
   3.7631584803367434`*^9}, {3.763158521905547*^9, 3.7631586564005947`*^9}, {
   3.763159575226506*^9, 3.7631596532663355`*^9}, {3.76315977807388*^9, 
   3.763159864517913*^9}, {3.763159953673379*^9, 3.7631600383258386`*^9}, {
   3.763160127503936*^9, 3.7631601764696608`*^9}, {3.763160877253928*^9, 
   3.7631609376861157`*^9}, {3.7631610153683643`*^9, 3.7631610155070333`*^9}, 
   3.7631614163516965`*^9, {3.763161503452248*^9, 3.7631615068918505`*^9}, {
   3.76316170941733*^9, 3.7631617718158064`*^9}, {3.7631618084669642`*^9, 
   3.7631619345489855`*^9}, {3.7631621772964535`*^9, 
   3.7631621945958157`*^9}, {3.7631622954758253`*^9, 
   3.7631623311752043`*^9}, {3.763162573095781*^9, 3.7631625810564933`*^9}, {
   3.763165007014879*^9, 3.7631650157624393`*^9}, {3.763165346894233*^9, 
   3.7631653592342196`*^9}, {3.7631654772141414`*^9, 3.763165490566574*^9}, {
   3.7631655277220955`*^9, 3.7631655926190104`*^9}, {3.7631656581316504`*^9, 
   3.763165704620087*^9}, {3.7631657544622936`*^9, 3.7631658412187023`*^9}, {
   3.7631659442558427`*^9, 3.7631659444143496`*^9}, {3.7631697399580326`*^9, 
   3.76316991533132*^9}, 3.7631699699656982`*^9, {3.763174351402421*^9, 
   3.763174353750779*^9}, {3.7631753037640495`*^9, 3.763175319861272*^9}, {
   3.7631753598098307`*^9, 3.763175371351607*^9}, {3.7631754061492767`*^9, 
   3.763175507092852*^9}, 3.763176110651868*^9, {3.763180564245925*^9, 
   3.7631805959987288`*^9}, {3.763180664242173*^9, 3.7631807171625504`*^9}, {
   3.7631846075493813`*^9, 3.7631847239337234`*^9}, {3.7632013082282653`*^9, 
   3.7632013622073803`*^9}, {3.763201395123904*^9, 3.7632013976278844`*^9}, {
   3.768724636461064*^9, 3.768724643103057*^9}, 3.7687247168880577`*^9, {
   3.7687259170417166`*^9, 3.768725966257715*^9}, {3.768733860636484*^9, 
   3.7687338660954847`*^9}, {3.768733912517484*^9, 3.768733934056484*^9}, {
   3.7858544277444243`*^9, 3.7858546060715413`*^9}, {3.78585467344009*^9, 
   3.785854708823527*^9}, {3.7858553315457616`*^9, 3.785855337641015*^9}, {
   3.785855368016358*^9, 3.785855420088813*^9}, {3.785855909025015*^9, 
   3.785856038063528*^9}, {3.785856088570183*^9, 3.7858561278955564`*^9}, {
   3.785856170002762*^9, 3.785856273233365*^9}, {3.7858563136099195`*^9, 
   3.785856313913683*^9}, {3.785856404692983*^9, 3.785856438530645*^9}, {
   3.7858565398177466`*^9, 3.7858565991205606`*^9}, {3.7858566668158393`*^9, 
   3.7858566880243216`*^9}, {3.7858567275705223`*^9, 
   3.7858567376037087`*^9}, {3.785857347559682*^9, 3.7858574179478493`*^9}, {
   3.7858584670428944`*^9, 3.7858585398252106`*^9}, {3.785858636962559*^9, 
   3.785858640522787*^9}, {3.785858670587372*^9, 3.785858712224944*^9}, {
   3.785858749458946*^9, 3.7858588420628247`*^9}, {3.7858590167141075`*^9, 
   3.7858590428887215`*^9}, {3.7858591191073675`*^9, 3.785859140713535*^9}, 
   3.785859215699136*^9, {3.7858592691705036`*^9, 3.7858592740956554`*^9}, {
   3.785859732487873*^9, 3.7858598203444495`*^9}, {3.785859858638613*^9, 
   3.7858600806077414`*^9}, {3.785860155552374*^9, 3.785860173446438*^9}, {
   3.785860557855685*^9, 3.7858605634063625`*^9}, {3.7858609358542967`*^9, 
   3.785860965302373*^9}, {3.7858610015861034`*^9, 3.785861002527371*^9}, {
   3.7858610335901794`*^9, 3.7858610480888867`*^9}, {3.785861310888216*^9, 
   3.78586134764559*^9}, {3.785861585945227*^9, 3.785861601189365*^9}, 
   3.785861639704359*^9, 3.785861782264332*^9, {3.7858626703013573`*^9, 
   3.7858627949033036`*^9}, 3.7858633369591446`*^9, 3.7858635901030107`*^9, {
   3.78586377259087*^9, 3.785863786465074*^9}, {3.7858638258953657`*^9, 
   3.785863832735037*^9}, {3.7858663769859962`*^9, 3.785866380252453*^9}, {
   3.785867314226081*^9, 3.7858673670049753`*^9}, {3.7858674157390213`*^9, 
   3.7858675183620973`*^9}, 3.786443521126769*^9, 3.7864435713766766`*^9, 
   3.786443660386431*^9, {3.786444574079462*^9, 3.786444669335345*^9}, {
   3.7864463001599927`*^9, 3.7864463036722603`*^9}, 3.786446419553109*^9, {
   3.786446461171731*^9, 3.786446477057373*^9}, {3.786446814881695*^9, 
   3.786446985519944*^9}, {3.7864470272095118`*^9, 3.786447057745755*^9}, {
   3.786447088912509*^9, 3.786447138648816*^9}, {3.786447193993759*^9, 
   3.786447250759598*^9}, {3.786449578316842*^9, 3.7864495891224365`*^9}, {
   3.786449644858076*^9, 3.786449684089555*^9}, {3.786450247122547*^9, 
   3.7864502531488476`*^9}, {3.7864503217215004`*^9, 
   3.7864503381697063`*^9}, {3.810694107588764*^9, 3.8106943923531904`*^9}, {
   3.8106944878209667`*^9, 3.8106945255132203`*^9}, {3.8106945849632916`*^9, 
   3.810694636317973*^9}, {3.810694771994443*^9, 3.81069490393817*^9}, {
   3.810694938731064*^9, 3.8106949735321035`*^9}, {3.8106950611797037`*^9, 
   3.810695089166856*^9}, 3.8106953732763147`*^9, {3.8106954209508605`*^9, 
   3.8106954262496953`*^9}, 3.8106954611344547`*^9, {3.810695501560954*^9, 
   3.810695523032544*^9}, {3.810695583669401*^9, 3.810695628347964*^9}, {
   3.810695660409269*^9, 3.810695704152301*^9}, {3.810696116031282*^9, 
   3.8106961198799925`*^9}, {3.8106962219404044`*^9, 3.810696242808605*^9}, {
   3.8106964753200064`*^9, 3.810696477209955*^9}, {3.8106965597333355`*^9, 
   3.8106965663725867`*^9}, {3.8106966443032484`*^9, 3.810696647206484*^9}, {
   3.810722503608433*^9, 3.8107226654936476`*^9}, {3.81072311533906*^9, 
   3.8107231534631042`*^9}, {3.812589210352528*^9, 3.812589304446389*^9}, {
   3.8125893719424047`*^9, 3.812589478501624*^9}, {3.812589587856048*^9, 
   3.8125896038647747`*^9}, {3.8126325503437624`*^9, 
   3.8126326014195514`*^9}, {3.8128549686842012`*^9, 
   3.8128549687941356`*^9}, {3.8130451620035343`*^9, 3.813045169889459*^9}, {
   3.8183206087977695`*^9, 3.8183206354952345`*^9}, 3.8324070270285006`*^9, {
   3.832407072973501*^9, 3.8324070819324875`*^9}, {3.8324071434792604`*^9, 
   3.832407170913245*^9}, {3.8324105153610115`*^9, 3.8324105153650317`*^9}, 
   3.838988147274657*^9, {3.838988179043666*^9, 3.8389883524186716`*^9}, {
   3.838988629206687*^9, 3.8389887410826874`*^9}, {3.8389891327497053`*^9, 
   3.8389891448440456`*^9}, {3.838989284853345*^9, 3.8389893242843*^9}, {
   3.8390329261209726`*^9, 3.8390329374619646`*^9}, 3.8565990782166233`*^9, {
   3.85666741529601*^9, 3.8566674291124387`*^9}, {3.8591125659423485`*^9, 
   3.859112622259657*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"1874d45f-36c8-481d-a96c-727d8c067141"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Amatrix=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox[
         RowBox[{"w2", " ", "w6"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"w1", "+", "w6"}], ")"}], "2"]], 
        FractionBox["w1", 
         RowBox[{"w1", "+", "w6"}]], "0", "0", "0", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"w1", " ", "w2"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}]},
       {
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox["w2", "2"], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}], "-", 
         FractionBox[
          RowBox[{"iGh11", " ", "Rd", " ", "w5", " ", "w6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"Rd", " ", "w5", " ", 
               RowBox[{"(", 
                RowBox[{"w1", "+", "w6", "+", 
                 RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
              RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], ")"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox[
              RowBox[{
               RowBox[{"cpd", " ", "w1"}], "+", 
               RowBox[{"cpv", " ", "w6"}]}], 
              RowBox[{
               RowBox[{"cvd", " ", "w1"}], "+", 
               RowBox[{"cvv", " ", "w6"}]}]]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "eq"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cpd", " ", "w1"}], "+", 
                RowBox[{"cpv", " ", "w6"}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cvd", " ", "w1"}], "+", 
                RowBox[{"cvv", " ", "w6"}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cpv", " ", "cvd"}], "-", 
                RowBox[{"cpd", " ", "cvv"}]}], ")"}], " ", "w1", " ", 
              RowBox[{"(", 
               RowBox[{"w1", "+", "w6", "+", 
                RowBox[{"eq", " ", "w6"}]}], ")"}], " ", 
              RowBox[{"Log", "[", 
               FractionBox[
                RowBox[{"Rd", " ", "w5", " ", 
                 RowBox[{"(", 
                  RowBox[{"w1", "+", "w6", "+", 
                   RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
                RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], "]"}]}]}], ")"}]}], 
          
          RowBox[{
           SuperscriptBox["w1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cvd", " ", "w1"}], "+", 
              RowBox[{"cvv", " ", "w6"}]}], ")"}], "2"]}]]}], 
        FractionBox[
         RowBox[{"2", " ", "w2"}], 
         RowBox[{"w1", "+", "w6"}]], "0", "0", 
        FractionBox[
         RowBox[{"iGh11", " ", "p0", " ", "sqrtG", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cpd", " ", "w1"}], "+", 
            RowBox[{"cpv", " ", "w6"}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"Rd", " ", "w5", " ", 
              RowBox[{"(", 
               RowBox[{"w1", "+", "w6", "+", 
                RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
             RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], ")"}], 
           FractionBox[
            RowBox[{
             RowBox[{"cpd", " ", "w1"}], "+", 
             RowBox[{"cpv", " ", "w6"}]}], 
            RowBox[{
             RowBox[{"cvd", " ", "w1"}], "+", 
             RowBox[{"cvv", " ", "w6"}]}]]]}], 
         RowBox[{"w5", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cvd", " ", "w1"}], "+", 
            RowBox[{"cvv", " ", "w6"}]}], ")"}]}]], 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox["w2", "2"], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}], "+", 
         FractionBox[
          RowBox[{"iGh11", " ", "Rd", " ", "w5", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"Rd", " ", "w5", " ", 
               RowBox[{"(", 
                RowBox[{"w1", "+", "w6", "+", 
                 RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
              RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], ")"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox[
              RowBox[{
               RowBox[{"cpd", " ", "w1"}], "+", 
               RowBox[{"cpv", " ", "w6"}]}], 
              RowBox[{
               RowBox[{"cvd", " ", "w1"}], "+", 
               RowBox[{"cvv", " ", "w6"}]}]]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "eq"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cpd", " ", "w1"}], "+", 
                RowBox[{"cpv", " ", "w6"}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cvd", " ", "w1"}], "+", 
                RowBox[{"cvv", " ", "w6"}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cpv", " ", "cvd"}], "-", 
                RowBox[{"cpd", " ", "cvv"}]}], ")"}], " ", "w1", " ", 
              RowBox[{"(", 
               RowBox[{"w1", "+", "w6", "+", 
                RowBox[{"eq", " ", "w6"}]}], ")"}], " ", 
              RowBox[{"Log", "[", 
               FractionBox[
                RowBox[{"Rd", " ", "w5", " ", 
                 RowBox[{"(", 
                  RowBox[{"w1", "+", "w6", "+", 
                   RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
                RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], "]"}]}]}], ")"}]}], 
          
          RowBox[{"w1", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cvd", " ", "w1"}], "+", 
              RowBox[{"cvv", " ", "w6"}]}], ")"}], "2"]}]]}]},
       {
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"w2", " ", "w3"}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}], "-", 
         FractionBox[
          RowBox[{"iGh21", " ", "Rd", " ", "w5", " ", "w6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"Rd", " ", "w5", " ", 
               RowBox[{"(", 
                RowBox[{"w1", "+", "w6", "+", 
                 RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
              RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], ")"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox[
              RowBox[{
               RowBox[{"cpd", " ", "w1"}], "+", 
               RowBox[{"cpv", " ", "w6"}]}], 
              RowBox[{
               RowBox[{"cvd", " ", "w1"}], "+", 
               RowBox[{"cvv", " ", "w6"}]}]]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "eq"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cpd", " ", "w1"}], "+", 
                RowBox[{"cpv", " ", "w6"}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cvd", " ", "w1"}], "+", 
                RowBox[{"cvv", " ", "w6"}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cpv", " ", "cvd"}], "-", 
                RowBox[{"cpd", " ", "cvv"}]}], ")"}], " ", "w1", " ", 
              RowBox[{"(", 
               RowBox[{"w1", "+", "w6", "+", 
                RowBox[{"eq", " ", "w6"}]}], ")"}], " ", 
              RowBox[{"Log", "[", 
               FractionBox[
                RowBox[{"Rd", " ", "w5", " ", 
                 RowBox[{"(", 
                  RowBox[{"w1", "+", "w6", "+", 
                   RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
                RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], "]"}]}]}], ")"}]}], 
          
          RowBox[{
           SuperscriptBox["w1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cvd", " ", "w1"}], "+", 
              RowBox[{"cvv", " ", "w6"}]}], ")"}], "2"]}]]}], 
        FractionBox["w3", 
         RowBox[{"w1", "+", "w6"}]], 
        FractionBox["w2", 
         RowBox[{"w1", "+", "w6"}]], "0", 
        FractionBox[
         RowBox[{"iGh21", " ", "p0", " ", "sqrtG", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cpd", " ", "w1"}], "+", 
            RowBox[{"cpv", " ", "w6"}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"Rd", " ", "w5", " ", 
              RowBox[{"(", 
               RowBox[{"w1", "+", "w6", "+", 
                RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
             RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], ")"}], 
           FractionBox[
            RowBox[{
             RowBox[{"cpd", " ", "w1"}], "+", 
             RowBox[{"cpv", " ", "w6"}]}], 
            RowBox[{
             RowBox[{"cvd", " ", "w1"}], "+", 
             RowBox[{"cvv", " ", "w6"}]}]]]}], 
         RowBox[{"w5", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"cvd", " ", "w1"}], "+", 
            RowBox[{"cvv", " ", "w6"}]}], ")"}]}]], 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"w2", " ", "w3"}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}], "+", 
         FractionBox[
          RowBox[{"iGh21", " ", "Rd", " ", "w5", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"Rd", " ", "w5", " ", 
               RowBox[{"(", 
                RowBox[{"w1", "+", "w6", "+", 
                 RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
              RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], ")"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox[
              RowBox[{
               RowBox[{"cpd", " ", "w1"}], "+", 
               RowBox[{"cpv", " ", "w6"}]}], 
              RowBox[{
               RowBox[{"cvd", " ", "w1"}], "+", 
               RowBox[{"cvv", " ", "w6"}]}]]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "eq"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cpd", " ", "w1"}], "+", 
                RowBox[{"cpv", " ", "w6"}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cvd", " ", "w1"}], "+", 
                RowBox[{"cvv", " ", "w6"}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"cpv", " ", "cvd"}], "-", 
                RowBox[{"cpd", " ", "cvv"}]}], ")"}], " ", "w1", " ", 
              RowBox[{"(", 
               RowBox[{"w1", "+", "w6", "+", 
                RowBox[{"eq", " ", "w6"}]}], ")"}], " ", 
              RowBox[{"Log", "[", 
               FractionBox[
                RowBox[{"Rd", " ", "w5", " ", 
                 RowBox[{"(", 
                  RowBox[{"w1", "+", "w6", "+", 
                   RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
                RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], "]"}]}]}], ")"}]}], 
          
          RowBox[{"w1", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cvd", " ", "w1"}], "+", 
              RowBox[{"cvv", " ", "w6"}]}], ")"}], "2"]}]]}]},
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{"w2", " ", "w4"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}], 
        FractionBox["w4", 
         RowBox[{"w1", "+", "w6"}]], "0", 
        FractionBox["w2", 
         RowBox[{"w1", "+", "w6"}]], "0", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"w2", " ", "w4"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}]},
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{"w2", " ", "w5"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}], 
        FractionBox["w5", 
         RowBox[{"w1", "+", "w6"}]], "0", "0", 
        FractionBox["w2", 
         RowBox[{"w1", "+", "w6"}]], 
        RowBox[{"-", 
         FractionBox[
          RowBox[{"w2", " ", "w5"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}]},
       {
        RowBox[{"-", 
         FractionBox[
          RowBox[{"w2", " ", "w6"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}], 
        FractionBox["w6", 
         RowBox[{"w1", "+", "w6"}]], "0", "0", "0", 
        FractionBox[
         RowBox[{"w1", " ", "w2"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"w1", "+", "w6"}], ")"}], "2"]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Amatrix=", 
   MatrixForm[{{$CellContext`w2 $CellContext`w6 ($CellContext`w1 + \
$CellContext`w6)^(-2), $CellContext`w1/($CellContext`w1 + $CellContext`w6), 0,
       0, 0, -$CellContext`w1 $CellContext`w2 ($CellContext`w1 + \
$CellContext`w6)^(-2)}, {-$CellContext`w2^2 ($CellContext`w1 + \
$CellContext`w6)^(-2) - $CellContext`iGh11 $CellContext`Rd \
$CellContext`w1^(-2) $CellContext`w5 $CellContext`w6 ($CellContext`cvd \
$CellContext`w1 + $CellContext`cvv $CellContext`w6)^(-2) \
($CellContext`p0^(-1) $CellContext`Rd $CellContext`sqrtG^(-1) \
$CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6))^(-1 + ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6)/($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6)) ((
         1 + $CellContext`eq) ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6) ($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6) + ($CellContext`cpv $CellContext`cvd - \
$CellContext`cpd $CellContext`cvv) $CellContext`w1 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6) 
        Log[$CellContext`p0^(-1) $CellContext`Rd $CellContext`sqrtG^(-1) \
$CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6)]), 
      2 $CellContext`w2/($CellContext`w1 + $CellContext`w6), 0, 
      0, $CellContext`iGh11 $CellContext`p0 $CellContext`sqrtG \
$CellContext`w5^(-1) ($CellContext`cpd $CellContext`w1 + $CellContext`cpv \
$CellContext`w6) ($CellContext`cvd $CellContext`w1 + $CellContext`cvv \
$CellContext`w6)^(-1) ($CellContext`p0^(-1) $CellContext`Rd \
$CellContext`sqrtG^(-1) $CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6))^(($CellContext`cpd \
$CellContext`w1 + $CellContext`cpv $CellContext`w6)/($CellContext`cvd \
$CellContext`w1 + $CellContext`cvv $CellContext`w6)), -$CellContext`w2^2 \
($CellContext`w1 + $CellContext`w6)^(-2) + $CellContext`iGh11 $CellContext`Rd \
$CellContext`w1^(-1) $CellContext`w5 ($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6)^(-2) ($CellContext`p0^(-1) $CellContext`Rd \
$CellContext`sqrtG^(-1) $CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6))^(-1 + ($CellContext`cpd \
$CellContext`w1 + $CellContext`cpv $CellContext`w6)/($CellContext`cvd \
$CellContext`w1 + $CellContext`cvv $CellContext`w6)) ((
          1 + $CellContext`eq) ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6) ($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6) + ($CellContext`cpv $CellContext`cvd - \
$CellContext`cpd $CellContext`cvv) $CellContext`w1 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6) 
         Log[$CellContext`p0^(-1) $CellContext`Rd $CellContext`sqrtG^(-1) \
$CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6)])}, {-$CellContext`w2 $CellContext`w3 \
($CellContext`w1 + $CellContext`w6)^(-2) - $CellContext`iGh21 $CellContext`Rd \
$CellContext`w1^(-2) $CellContext`w5 $CellContext`w6 ($CellContext`cvd \
$CellContext`w1 + $CellContext`cvv $CellContext`w6)^(-2) \
($CellContext`p0^(-1) $CellContext`Rd $CellContext`sqrtG^(-1) \
$CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6))^(-1 + ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6)/($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6)) ((
         1 + $CellContext`eq) ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6) ($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6) + ($CellContext`cpv $CellContext`cvd - \
$CellContext`cpd $CellContext`cvv) $CellContext`w1 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6) 
        Log[$CellContext`p0^(-1) $CellContext`Rd $CellContext`sqrtG^(-1) \
$CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6)]), $CellContext`w3/($CellContext`w1 + \
$CellContext`w6), $CellContext`w2/($CellContext`w1 + $CellContext`w6), 
      0, $CellContext`iGh21 $CellContext`p0 $CellContext`sqrtG \
$CellContext`w5^(-1) ($CellContext`cpd $CellContext`w1 + $CellContext`cpv \
$CellContext`w6) ($CellContext`cvd $CellContext`w1 + $CellContext`cvv \
$CellContext`w6)^(-1) ($CellContext`p0^(-1) $CellContext`Rd \
$CellContext`sqrtG^(-1) $CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6))^(($CellContext`cpd \
$CellContext`w1 + $CellContext`cpv $CellContext`w6)/($CellContext`cvd \
$CellContext`w1 + $CellContext`cvv $CellContext`w6)), -$CellContext`w2 \
$CellContext`w3 ($CellContext`w1 + $CellContext`w6)^(-2) + $CellContext`iGh21 \
$CellContext`Rd $CellContext`w1^(-1) $CellContext`w5 ($CellContext`cvd \
$CellContext`w1 + $CellContext`cvv $CellContext`w6)^(-2) \
($CellContext`p0^(-1) $CellContext`Rd $CellContext`sqrtG^(-1) \
$CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6))^(-1 + ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6)/($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6)) ((
          1 + $CellContext`eq) ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6) ($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6) + ($CellContext`cpv $CellContext`cvd - \
$CellContext`cpd $CellContext`cvv) $CellContext`w1 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6) 
         Log[$CellContext`p0^(-1) $CellContext`Rd $CellContext`sqrtG^(-1) \
$CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6)])}, {-$CellContext`w2 $CellContext`w4 \
($CellContext`w1 + $CellContext`w6)^(-2), $CellContext`w4/($CellContext`w1 + \
$CellContext`w6), 0, $CellContext`w2/($CellContext`w1 + $CellContext`w6), 
      0, -$CellContext`w2 $CellContext`w4 ($CellContext`w1 + \
$CellContext`w6)^(-2)}, {-$CellContext`w2 $CellContext`w5 ($CellContext`w1 + \
$CellContext`w6)^(-2), $CellContext`w5/($CellContext`w1 + $CellContext`w6), 0,
       0, $CellContext`w2/($CellContext`w1 + $CellContext`w6), \
-$CellContext`w2 $CellContext`w5 ($CellContext`w1 + $CellContext`w6)^(-2)}, \
{-$CellContext`w2 $CellContext`w6 ($CellContext`w1 + $CellContext`w6)^(-2), \
$CellContext`w6/($CellContext`w1 + $CellContext`w6), 0, 0, 
      0, $CellContext`w1 $CellContext`w2 ($CellContext`w1 + \
$CellContext`w6)^(-2)}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8389887152956877`*^9, 3.838988746405687*^9, 
  3.8389912848676744`*^9, 3.8390330310144925`*^9, 3.8565991700783725`*^9, 
  3.8591126931108356`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"d267042e-3889-45cf-9d2c-\
36b89f70c38c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"EigenValues=\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        FractionBox["w2", 
         RowBox[{"w1", "+", "w6"}]], "0", "0", "0", "0", "0"},
       {"0", 
        FractionBox["w2", 
         RowBox[{"w1", "+", "w6"}]], "0", "0", "0", "0"},
       {"0", "0", 
        FractionBox["w2", 
         RowBox[{"w1", "+", "w6"}]], "0", "0", "0"},
       {"0", "0", "0", 
        FractionBox["w2", 
         RowBox[{"w1", "+", "w6"}]], "0", "0"},
       {"0", "0", "0", "0", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["cvd", "2"], " ", 
           SuperscriptBox["w1", "3"], " ", "w2", " ", "w5", " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6", "+", 
             RowBox[{"eq", " ", "w6"}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "cvd", " ", "cvv", " ", 
           SuperscriptBox["w1", "2"], " ", "w2", " ", "w5", " ", "w6", " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6", "+", 
             RowBox[{"eq", " ", "w6"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["cvv", "2"], " ", "w1", " ", "w2", " ", "w5", " ", 
           SuperscriptBox["w6", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6", "+", 
             RowBox[{"eq", " ", "w6"}]}], ")"}]}], "-", 
          SqrtBox[
           RowBox[{"iGh11", " ", "p0", " ", "sqrtG", " ", 
            SuperscriptBox["w1", "2"], " ", 
            SuperscriptBox["w5", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"w1", "+", "w6"}], ")"}], "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cpd", " ", "w1"}], "+", 
              RowBox[{"cpv", " ", "w6"}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"cvd", " ", "w1"}], "+", 
               RowBox[{"cvv", " ", "w6"}]}], ")"}], "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"w1", "+", "w6", "+", 
               RowBox[{"eq", " ", "w6"}]}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"Rd", " ", "w5", " ", 
                RowBox[{"(", 
                 RowBox[{"w1", "+", "w6", "+", 
                  RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
               RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], ")"}], 
             FractionBox[
              RowBox[{
               RowBox[{"cpd", " ", "w1"}], "+", 
               RowBox[{"cpv", " ", "w6"}]}], 
              RowBox[{
               RowBox[{"cvd", " ", "w1"}], "+", 
               RowBox[{"cvv", " ", "w6"}]}]]]}]]}], 
         RowBox[{"w1", " ", "w5", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"cvd", " ", "w1"}], "+", 
             RowBox[{"cvv", " ", "w6"}]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{"w1", "+", "w6", "+", 
            RowBox[{"eq", " ", "w6"}]}], ")"}]}]], "0"},
       {"0", "0", "0", "0", "0", 
        FractionBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["cvd", "2"], " ", 
           SuperscriptBox["w1", "3"], " ", "w2", " ", "w5", " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6", "+", 
             RowBox[{"eq", " ", "w6"}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "cvd", " ", "cvv", " ", 
           SuperscriptBox["w1", "2"], " ", "w2", " ", "w5", " ", "w6", " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6", "+", 
             RowBox[{"eq", " ", "w6"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["cvv", "2"], " ", "w1", " ", "w2", " ", "w5", " ", 
           SuperscriptBox["w6", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6", "+", 
             RowBox[{"eq", " ", "w6"}]}], ")"}]}], "+", 
          SqrtBox[
           RowBox[{"iGh11", " ", "p0", " ", "sqrtG", " ", 
            SuperscriptBox["w1", "2"], " ", 
            SuperscriptBox["w5", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"w1", "+", "w6"}], ")"}], "3"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"cpd", " ", "w1"}], "+", 
              RowBox[{"cpv", " ", "w6"}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"cvd", " ", "w1"}], "+", 
               RowBox[{"cvv", " ", "w6"}]}], ")"}], "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"w1", "+", "w6", "+", 
               RowBox[{"eq", " ", "w6"}]}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"Rd", " ", "w5", " ", 
                RowBox[{"(", 
                 RowBox[{"w1", "+", "w6", "+", 
                  RowBox[{"eq", " ", "w6"}]}], ")"}]}], 
               RowBox[{"p0", " ", "sqrtG", " ", "w1"}]], ")"}], 
             FractionBox[
              RowBox[{
               RowBox[{"cpd", " ", "w1"}], "+", 
               RowBox[{"cpv", " ", "w6"}]}], 
              RowBox[{
               RowBox[{"cvd", " ", "w1"}], "+", 
               RowBox[{"cvv", " ", "w6"}]}]]]}]]}], 
         RowBox[{"w1", " ", "w5", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"w1", "+", "w6"}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"cvd", " ", "w1"}], "+", 
             RowBox[{"cvv", " ", "w6"}]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{"w1", "+", "w6", "+", 
            RowBox[{"eq", " ", "w6"}]}], ")"}]}]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["EigenValues=", 
   MatrixForm[{{$CellContext`w2/($CellContext`w1 + $CellContext`w6), 0, 0, 0, 
      0, 0}, {0, $CellContext`w2/($CellContext`w1 + $CellContext`w6), 0, 0, 0,
       0}, {0, 0, $CellContext`w2/($CellContext`w1 + $CellContext`w6), 0, 0, 
      0}, {0, 0, 0, $CellContext`w2/($CellContext`w1 + $CellContext`w6), 0, 
      0}, {0, 0, 0, 
      0, $CellContext`w1^(-1) $CellContext`w5^(-1) ($CellContext`w1 + \
$CellContext`w6)^(-2) ($CellContext`cvd $CellContext`w1 + $CellContext`cvv \
$CellContext`w6)^(-2) ($CellContext`w1 + $CellContext`w6 + $CellContext`eq \
$CellContext`w6)^(-1) ($CellContext`cvd^2 $CellContext`w1^3 $CellContext`w2 \
$CellContext`w5 ($CellContext`w1 + $CellContext`w6) ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6) + 
       2 $CellContext`cvd $CellContext`cvv $CellContext`w1^2 $CellContext`w2 \
$CellContext`w5 $CellContext`w6 ($CellContext`w1 + $CellContext`w6) \
($CellContext`w1 + $CellContext`w6 + $CellContext`eq $CellContext`w6) + \
$CellContext`cvv^2 $CellContext`w1 $CellContext`w2 $CellContext`w5 \
$CellContext`w6^2 ($CellContext`w1 + $CellContext`w6) ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6) - ($CellContext`iGh11 \
$CellContext`p0 $CellContext`sqrtG $CellContext`w1^2 $CellContext`w5^2 \
($CellContext`w1 + $CellContext`w6)^3 ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6) ($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6)^3 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6)^2 ($CellContext`p0^(-1) $CellContext`Rd \
$CellContext`sqrtG^(-1) $CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6))^(($CellContext`cpd \
$CellContext`w1 + $CellContext`cpv $CellContext`w6)/($CellContext`cvd \
$CellContext`w1 + $CellContext`cvv $CellContext`w6)))^Rational[1, 2]), 0}, {
     0, 0, 0, 0, 
      0, $CellContext`w1^(-1) $CellContext`w5^(-1) ($CellContext`w1 + \
$CellContext`w6)^(-2) ($CellContext`cvd $CellContext`w1 + $CellContext`cvv \
$CellContext`w6)^(-2) ($CellContext`w1 + $CellContext`w6 + $CellContext`eq \
$CellContext`w6)^(-1) ($CellContext`cvd^2 $CellContext`w1^3 $CellContext`w2 \
$CellContext`w5 ($CellContext`w1 + $CellContext`w6) ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6) + 
       2 $CellContext`cvd $CellContext`cvv $CellContext`w1^2 $CellContext`w2 \
$CellContext`w5 $CellContext`w6 ($CellContext`w1 + $CellContext`w6) \
($CellContext`w1 + $CellContext`w6 + $CellContext`eq $CellContext`w6) + \
$CellContext`cvv^2 $CellContext`w1 $CellContext`w2 $CellContext`w5 \
$CellContext`w6^2 ($CellContext`w1 + $CellContext`w6) ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6) + ($CellContext`iGh11 \
$CellContext`p0 $CellContext`sqrtG $CellContext`w1^2 $CellContext`w5^2 \
($CellContext`w1 + $CellContext`w6)^3 ($CellContext`cpd $CellContext`w1 + \
$CellContext`cpv $CellContext`w6) ($CellContext`cvd $CellContext`w1 + \
$CellContext`cvv $CellContext`w6)^3 ($CellContext`w1 + $CellContext`w6 + \
$CellContext`eq $CellContext`w6)^2 ($CellContext`p0^(-1) $CellContext`Rd \
$CellContext`sqrtG^(-1) $CellContext`w1^(-1) $CellContext`w5 ($CellContext`w1 + \
$CellContext`w6 + $CellContext`eq $CellContext`w6))^(($CellContext`cpd \
$CellContext`w1 + $CellContext`cpv $CellContext`w6)/($CellContext`cvd \
$CellContext`w1 + $CellContext`cvv $CellContext`w6)))^Rational[1, 2])}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8389887152956877`*^9, 3.838988746405687*^9, 
  3.8389912848676744`*^9, 3.8390330310144925`*^9, 3.8565991700783725`*^9, 
  3.859112696472909*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[1]:=",ExpressionUUID->"0cf914bc-99b2-4f4e-a26b-\
579b4c8f7431"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1278, 1348},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
Magnification:>1.4 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 13034, 252, 1154, "Input",ExpressionUUID->"1874d45f-36c8-481d-a96c-727d8c067141"],
Cell[CellGroupData[{
Cell[13639, 278, 21032, 490, 305, "Print",ExpressionUUID->"d267042e-3889-45cf-9d2c-36b89f70c38c"],
Cell[34674, 770, 10655, 231, 317, "Print",ExpressionUUID->"0cf914bc-99b2-4f4e-a26b-579b4c8f7431"]
}, Open  ]]
}, Open  ]]
}
]
*)

